home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ WheelMouse Lines.xpl < prev    next >
Text File  |  1998-12-28  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="General Usage\Mouse"
  5. "NAME"="Wheelmouse Scroll"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Lines"
  8. "DESCRIPTION 1"="Use this settings to specify how many lines a window should scroll if you use the wheel on your mouse."
  9. "DESCRIPTION 2"="To stop scrolling with the wheel, use "0"."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  13. "COMMENT 2"="Version 1.1"
  14.  
  15.  
  16. sP="HKCU\Control Panel\Desktop\WheelScrollLines"
  17.  
  18. 'Called when the Plugin is started
  19. SUB Plugin_Initialize
  20.  i=RegReadValue(sP)
  21.  if IsEmpty(i) then
  22.   SetUIElement 1,""
  23.  else
  24.   SetUIElement 1,i
  25.  end if
  26.  
  27. END SUB
  28.  
  29. 'Called when the Plugin should validate the Data the user has entered
  30. SUB Plugin_CheckData(ElementIndex)
  31. END SUB
  32.  
  33. 'Called when the Plugin should apply the changes
  34. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  s=GetUIElement(1)
  36.  
  37.  if len(s)<>0 then 
  38.   Call RegWriteValue(sP,s,1)
  39.   Call Restart
  40.  else
  41.   Call MsgError("Please supply a number!")
  42.  end if
  43.  
  44. END SUB
  45.  
  46. 'Called when the Plugin is about to be removed from memory
  47. SUB Plugin_Terminate
  48. END SUB
  49.